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Analyze and Act on Input 16-Sep-1984 05: 19:3 VAX-11 Bliss-32 V4.0-742 1 
14-Sep-1984 53:2 DIS aK SVNGH TER: CPHONE . SRCJINPUT.B32; fag ea) 


Ztitle "INPUT = wes y and Act on Input’ | 
module input ( ; 
ident="V04-000') = begin 


' 
LRA REE RE CER EAA ERE E RE REEE EE EA EEE E EEE AATETAAAEEEAAEREAREEREE EERE EE 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!t THIS SOFTWARE a; FURNISHED UNDER A LICENSE AND MAY BE USED AND ere 
't ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OF ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
*® 
® 
® 
® 
® 
® 
*® 
® 
ie TRANSFERRED. , 
® 
® 
* 
& 
* 
* 
* 
* 
* 
* 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
» crmpohat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* . 


's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LRA RRA 
' 


oe 
Facility: VAX/VMS Telephone Facility, Analyze and Act on Input 
' Abstract: This module receives all of the terminal input from 


the user and decides what to do with it. It handles 
both conversation text and commands. 


' Environment: 


' Modified By: 


v03-001 PCA1020 Paul C. Anagnostopoulos 24-May-1983 
Support 8-bit weeres sets. 


i 

i 

' 

i 

' 

i 

! 

Author: Paul C. Anagnostopoulos, Creation Date: 10 November 1980 
i 

' 

i 

' 

& Add PHONE as a synonym for the DIAL command. 


V4.0-742 Page 2| 
DISKSVMSMASTER: CPHONE.SRCJINPUT.B32;1 (2)) 
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Module Declarations r 14 3eP- bbe 1 19:38 a 


Asbttl "Module Declarations’ 
Libraries and Requires: 


Library  Sys$t ibrary:starlet | 39" 
library ‘sys$library:tpamac.(32'; 
require ‘phonereq'; | 
! 

Table of Contents: 


forward routine 
phn$kbd_route: novalue, 
phn$cmd_parse: novalue; 


1 
External References: 


external routine 


oo 
a 
p=] 
Sad 
a 
~~ 
— 
@ 
oO 
oe 
°o 

a acta 

“< 

' 
o 
3 
a 
. 


external literal 
Lib$_syntaxerr; 


1 
Own Variables: 


es a ss 2s > > as bs — as > 2s 2s —s > 2 a 4s 2 4 2 4 a 

wo 
> 
3 
ad 
o 
3 
” 
= 
® 
7 
v 

3 
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INPUT = 

PHNSKBD_ROUTE = Initial Routing of Input 14-Sep-19 DI SMASTER:(C (5) 
ps 5 ; Rsbttl *PHNSKBD_ROUTE = Initial Routing of Input’ 

2 5 1! Functional Description: 

0428 1! This steering message routine is invoked after we collect 

0429 1! a bit of input from the keyboard. It splits up the input 

0430 1! into conversation text and command text and routes these 

et : to the appropriate steering routine for further processing. 

6438 1 ! Formal Parameters: 

ot: : input Address of descriptor of input. 

0436 1! Implicit Inputs: 

0437 1! global data 

0438 1! 2 

0439 1°! Implicit Outputs: 

0440 1! globat data 

0441 1! 

Bees 1 ! Returned Value: 

0443 1! non 

0444 1! 

0445 1 ! Side Effects: 

0446 1! 

0447 1 !-- 

0448 1 

0449 1 

geet $ global routine phn$kbd_route(input): novalue = begin 

EE 2 bind 

0453 2 input_dsc = .input: descriptor; 

0454 2 

0455 2 own ee 

0456 2 command_flag: byte initial(false); 

0457 2 

0458 2 own : 

0459 2 text_buf: vector(80,bytel, ! These variables are OWN due 
0460 2 buf_7: long; ! up-level referencing. 
0461 2 

0462 2 local : 

0463 2 conversing: byte, 

0464 2 char: byte, 

0465 2 p: ref pub; 

0466 2. . 

0467 bind ; 

0468 ctrl_wicmd = describe(Zstring(Zchar(ctrl_u,ctrl weret))), 

0469 exit.cmd = describe(%string(%char(ctri-us, "EXTT ,achar(ret))) 
oth hangup_cmd = describe (%string(%char(ctrl_u). *HANGUP' ,%char(ret)5); 
047 

047 ! The following routine is called when a collection of characters is ready | 
0474 ! to be queued to the appropriate steering message routine. If the collection 
0475 ! is non-empty, we queue a steering message. We also clear the buffer for the 
O47 i next collection. 

bee routine queue_collection: novalue = begin 

0480 local . 

0481 collection_dsc: descriptor; 
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PHNSKBD “ROUTE - Initial Rout ing of Input 12-Sep-1984 93:39:39 DISKSVMSMASTER: CPHONE. SRCJINPUT.B32;1 age (3). 
page 3 
gee 4 if .buf_ : tru 0 then ( 
0484 4 ollection_dsc se = ret i; 
0485 4 collection= ésclptrj] = buf; 
0486 4 phn$queue_smb( if reonnand ‘tag’ then smb__cmd_parse else smb__talk, 
0487 4 collection_dsc); 
0488 4 buf_i = 0; 
0489 ; 3 
0490 return; 
0491 2 end; 
-TITLE INPUT INPUT = Analyze and Act on Input 
-IDENT \Vv04-000\ 
-PSECT S$PLITS,NOWRT,NOEXE,2 
Oo iW S$ 80008 P.AAB: .ASCII <21><23><13> : 
0000 -BLKB 1 
00000003 00004 P.AAA: .LONG 3 3 
00000000" 00008 ADDRESS P.AAB F 
OD 54 49 58 45 15 QOO0C P.AAD: .ASCII <21>\EXIT\<13> 3 
00012 -BLKB 2 
00000006 00014 P.AAC: .LONG ‘. : 
00000000° 00018 ADDRESS P.AAD : 
0 50 55 47 4E 41 48 15 OO01C P.AAF: ASCII  <21>\HANGUP\<13> : 
00000008 00024 P.AAE: .LONG 8 3 
00000000' 00028 “ADDRESS P.AAF F 


-PSECT SOWNS,NOEXE,2 

00 00000 COMMAND Jes ‘ 
00001 -BLKB 3 
00004 TEXT_BUF: 8 
00054 BUF_i: “BLKB 4 
CTRL_W_CMD= P.AAA 
EXIT" CAD= P.AAC 
HANGOP =thDs 


P-AAE 
XTRN SHNS _OK PHNS _ANSWERED 
-EXTRN P HNNS"BUSYCALL> PHNS_CANCALL 


PH D 
-EXTRN PHNS_DIRCAN, PHNS pe 
-EXTRN PHNS_HELPCAN, PHNS_HUNGUP 
-EXTRN PHNS~JUSTRANG, PuNS. LOGGEDOFF 


EXT INGMA 
-EXTRN PHNS_ “BADR PANS -BADHELP 
ee PHNS - -BADMA 


-EXTRN PHNS_IVREDUNCALL 


PHNS$KBD_ROUT 


INPUT = Analyze and Act on Input 16-Sep- § 
= Initial Routing of Input 14-Sep-1984 


a 13:58:38 


VAX=-11 Bliss<-32 V4.0-742 5 
DISKSVMSMASTER: CPHONE . SRCJINPUT.B32; fag * (33 


PHN$_LINKERROR, PHN$ _NEEDUSER 

PHNS PHNS NOROLDS 

RN PHNS"NOPORTS, PHN 
p PHNS$_NOT 

TRN PHNS$ ~ONLYNOBE BANS” OPHONEBUSY 
PHN$ -REMOTEERROR 

PHN$-TARGTERM, PHN$_UNPLUGGED 

¥ PHN$_SHAREDMBX 

PHN$-INPUTTERM, PHR$GQ_NODE_NAME 

ITCH Hook 


Pp | 
PHNSGL_VIEWPORT SIZE 
-EXTRN PHNSGB"SCROLL, BrINSGaQ PUBHE AD 
PHN HN$GB™ FLAGS pt teste PARSE 


eEXTRN 
~EXTRN PHNSANSWER_C PHNSBREAK_CALL 
~EXTRN PHNSCONVERSING, PHNSDIAL_CMD 
SEXTRN PHNSDIRECTORY_CMD 
-EXTRN PHNSEXIT_ CMD, PHNSFACSIMILE_CMD 
“EXTRN PHNSFRESA_SCRE 
eEXTRN PHNSHANGUP CMD, PHNSHELE CMD | 
eEXTRN PHNSHOLD_CMD, BHNS INF ORM 
-EXTRN PHNSMAIL-CMD, PHNSQUEUE_SMB 
“EXTRN PHNSREJECT CMD, BANS SHO: TEXT 
SEXTRN PHNSTRANSCRIBE_CMD | 
~EXTRN PHNSUNHOLD_CMD> LIBS_SYNTAXERR 
-PSECT $CODE$,NOWRT,2 
0004 00000 QUEVE_COLLECTION: 
-WORD Save R2 3 0478. 
52 0000" CF 9E 00002 MOVAB UF_I, R2 3 
5E 08 C2 00007 SUBL2 a 3 
50 62 DO OOO0A MOVL BUF _I, RO ; 0483 
1B 13 0000D BEQL 3 
6E 50 BO O000F MOVW RO. COLLECTION_DSC : eed 
04 AE BO A2 9E 00012 . MOVAB TEXT_BUF, COLLECTION_DSC+4 ; 0485 | 
5E DD 00017 PUSHL SP ; 0486 
04 AC Ae €E9 00019 LBC COMMAND_FLAG, 1$ 3 
03 DD 00010 PUSHL 4&3 ; 
¢ 02 11 OOO1F BRB 2$ : 
04 DD 00021 1$: PUSHL 4&4 3 
0000G CF 02 FB 00023 2$: CALLS #2, PHNSQUEUE_SMB 3 | 
62 D4 00028 CLRL BUF _1 : 0488 
04 0002A 3$: RET > 0491 | 


; Routine Size: 43 bytes, ; Routine Base: 


’ 
* 
} 

/ 
i 


$CODES + 0000 


2 
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049 ! The first thing we have to do is check to see what state the screen 7. in. 

049 i If the scroller flag is set, some scrolling=-type command (e.g., HEL 

0494 i is in progress. We need to reset the flag to cancel the command, 

beee i and refresh the screen. 

0497 if .phn$gv_ oes er then ( 

0498 phns Ou. scroller = false; 

0499 c 
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$Find_ch(.input_ dscClen} -input_dscCptrj,ctrl_w) eqla 0 then 
, phn$fresh_ screen(true); 

! Next thing we do is check to see if a message is sitting on the 

i message Line. If so, we want to clear it out. 


if .phn$gv gecesene then ( 
phn$gv pesopee = false; 
chek aternt i? 


! Another thing we need to check for is whether the user is currently 
i ringing someone's phone. If so, we cancel the call immediately. 


p hn$gq_pubhead([0]; 
if "«pEpubeve calling] then 
phin$break_call(); 


' Finally, we have to see if a facsimile pegs is in progress. 
i If so, we cancel it by turning off the f 


phn$gv_facsimile = false; 
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UT 
$KBD_ - Initial Routing of Input 14-Sep-19 


! Now we are going to look at the input typed by the user. We will split 
' jt up into conversation text and command text. 


conversing = phn$conversing(); 
buf_i = 0; 


while dec (input_dscClenJ]) geq 0 do ( 
char = ch$rchar_a(input_dscCptr]); 


command_flag = .command_flag or (not .conversing); 
if .command_flag then 


We are in the middle of a command. Process each character: 


: return Done with this command, back to talking 
! switch hook Done with this command, start another. 
‘ CTRL/W Flush current command 8 refresh screen. 
' CTRL/Z Flush current command & force EXIT. 

! others Add to current command. 


selectoneu .char of set ’ 

Cretl: (text_bufC.buf_i] = ret; 
inc(buf_i); 
queue_collection(); 
command_flaog = false;); 


kehtrchert .phnbog switch_hookCptr])]: 
ftext_bufC.buf_i] = ret; 
inc (buf _i 


); 
queue_collection();); 


Cctrl_wi: (queue_collection(); 
phn$queue_smb(smb__cmd_parse,ctrl_w_cmd); 
command_flag = falSe;); 


Cctrl_z2]: (queve_collection(); 7 
phn$queue_smb(smb__cmd_parse,exit_cmd); 
command_flag = falSe;); 


Cotherwised: (text_bufC.buf_i] = .char; 
inc(buf_i);); 
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| D2 
INPUT INPUT = Analyze and Act on Input 16-Sep-1984 02:10:30 VAX-11 Bliss-32 V4.0-742 Page 8 
vOs-000 PHNSKBD ROUTE = Initial Routing of Input 1e8ep=198c 15:59:25 DLSKSVMGMASTERSCPHONE-SACIINPUT.B32;7°%° (6s 
: st 0564 else 
; ¢S 0565 
; 24 0566 ! The user is entering some conversation text. Process each 
> 244 0567 ! character as follows: 
> 245 0568 3 : switch hook Suspend talking, start a new command. 
; 246 0569 ; : CTRL/W Suspend talking, refresh screen. 
; 247 0570 : CTRL/Z Suspend talking, force HANGUP command. 
; 248 0571 3 : others Add to conversation text. 
> 249 B20¢ 3 
; 250 0573 3 selectoneu .char of set 
3 go) 0574 3 hebereher{ .gnnves, switch booklets 7? 21 
; S26 0575 4 queue_collection(); 
3; 2 0576 3 command_flag = true;); 
> 254 0577 3 
3 $22 B28 ; Cctrl_wi: squgee sotiosyiont?i Y a3) 
; n$queue_smb(smb__cmd_parse,ctrl_w_cmd);); 
: 87 0380 3 : - 
; 258 0581 4 Cetrl_2): (queue_collection(); 
; 259 0582 3 phn$queue_smb(smb__cmd_parse,hangup_cmd);); 
; 260 0583 3 : 
; 2) 0584 4 Cotherwise): (text_bufC.buf_i] = .char; 
3 gee 0585 3 inc(buf_i);); 
> 2635 0586 3 tes; 
> 264 0587 3 
3; 269 0588 2); 
; 266 0589 2 
3 ser bey § ! Make sure we queue any final collection we were in the process of building. 
; 269 0592 2 queue_collection(); 
; 270 0593 2 return; 
, 6ael 0594 2 
, ate 0595 1 end; 
01FC 00000 «ENTRY PHNSKBD_ROUTE, Save R2,R3,R4,R5,R6,R7,R8 ; 0450 
58 0000" CF 9E 00002 MOVAB CTRL_W_CUMD, R : 
57 0000G CF 9E 00007 MOVAB PHNSGB-FLAGS, R : 
56 C6 AF 9E 0000C MOVAB QUEUE_COLLECTION, R6 ; 
55 0000" CF 9E 00010 MOVAB BUF _I, R5 3 
53 04 AC DO 00015 MOVL INPOT, R3 : 0453 
17 67 01 4 00019 BBC #1, PHNSGB_FLAGS, 2$ : 0497 
67 02 8A 0001D BICB2 #2, PHNSGB_FLAGS : 0498 
04 B3 63 17 3A 00020 LOCC #2, (R3),~a4(R3) : 0499 
02 12 00025 BNEQ 1$ : 
51 D4 BROS, CLRL R1 : 
51 D5 00029 1$: TSTL R1 ; 
07 12 00028 BNEQ 2$ ; 
01 DD 0002D PUSHL #1 ; 0500 
0000G CF 01 FB 0002F CALLS #1, PHNSFRESH_SCREEN : 
08 67 a B88 4 2%: BLBC PHNSGB_FLAGS, ; 0506 
67 01 8A 00037 BICB2 = #1, PHASGB FLAG ; 0507 
0000G CF 00 FB p03 CALLS #0, PHNSINFORM ; 0508 
50 0009G CF DO OOO3F 3$: MOVL PHN$GQ_PUBHEAD, P ; 0514 
05 OOFO CO 03 €1 00044 BBC #3, 240(P), 4$ ; 0515 
| 
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03 
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52 04 863 
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51 AC AS 

50 51 

AC AS 50 
4F AC AS 

0D 52 

10 

50 BO AS 

00 B540 OD 
65 

66 00 

35 

0000G DF 6 
50 BO AS 

00 B540 0D 
65 

66 00 

AC 

17 52 
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42 

66 00 
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89 
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00 
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17 52 

07 

66 00 

58 
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VAX-11 Bliss-32 V4.0 


CONVERS ING 
BU 
easy. RO 
RO, (R3) 
RO 
6$ 
18$ 
@4(R3), CHAR 
4(R3) 
CONVERSING, RO 
LOMAAND . FLAG, R1 
RO, COMMAND FLAG 
COMMAND FLAG, 
CHAR, #73 
7 
TEXT RO 
ri3. tte _ICROJ 
#05 QUEUE _COLLECTION 
an @PHNSGQ_SW1ITCH_HOOK+4 


TEXT RO 
#13, BBUF ICROJ 


oe QUEUE _COLLECTION 
CHAR, #23 

10$ 

+f QUEUE _COLLECTION 


11$ 

CHAR, #26 

#0, QUEVE_COLLECTION 

Ey IT_CMD 

a, PHNSQUEUE _SMB 

COMMAN D_FLAG 

char. @PHN$GQ_SWITCH_HOOK+4 


ay QUEUE COLLECTION 
. COMMARD_FLAG 


CHAR, #23 
#0, QUEUE_COLLECTION 


16$ 
CHAR, #26 
17$ 


0-742 
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| INPUT INPUT = Routes and Act on Input 16-Sep-1984 02: 19: 30 VAX-11 Bliss-32 V4.0-742 ge 10 
v04-000 PHNSKBD_ROUTE = Initial Routing of Input 14-Sep-1984 12:5 DISKSVMSMASTER: CPHONE. SRCJINPUT.B32; ys (6) 
| 
66 00 FB OO00F4 CALLS #0, QUEUE_COLLECTION : 
20 AB OF OOF? PUSHAB HANGUP_CMB ; 0582 
03 DD OOOFA 16% PUSHL é 
0000G CF 02 FB Boone CALLS eee PHNSQUEUE _ SMB j 
AB 11 8103 BRB ; 0573 
50 BO A oe 00103 17$: MOVAB ear BUF, RO 3 0584 
00 8540 52 90 00107 MOVB gl aBUF _ ICROJ 5 
65 06 0010¢ INCL i + 0585 
9E 11 0010 BRB : 0528 
66 00 FB 00110 18$: CALLS #0, QUEUE_COLLECTION 3 0592 
04 0011 RET 3; 0595 


; Routine Size: 276 bytes, Routine Base: $CODE$S + 0028 
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039 1 7 Bsbttl *PHNSCMD_PARSE = Parse a Command’ 

598 1! "Functional Description: 

0599 1! his steering message routine is invoked when we have part 
0600 1! or all of a command from PHNSKBD_ROUTE. We collect characters 
pens ! | until we have a complete command, and then we parse and execute it. 
0605 1 ! Formal Parameters: 

0604 1! cmd_text Part or all of a command. Never a null string and 
0605 1: never parts of two commands. 

0606 1! 

0607 1 ! Implicit Inputs: 

0608 1 | global data 

0609 1: 

0610 1: Implicit Outputs: 

0611 1! global data 

061 1! 

061 1 ! Returned Value: 

0614 1: none 

0615 1! 

0616 1 ! Side Effects: 

0617 1: 

0618 1 i- 

0619 1 

0620 1 : ; 

+e 3 $ global routine phn$cmd_parse(cmd_text): novalue = begin 

0623 2 bind : 

0624 2 text_dsc = .cmd_text: descriptor; 

0625 2 

0626 2 own 

0627 2 command buf: vec For 080. bytel, 

poss : buf_i: Tong initial(0), 

0630 2 tparse_block: block(tpa$k_ om. byte] 

0631 2 initial (tpa$k_count 

0632 2 tpa$m_ blanks + tpa$m_abbrev), 

0633 2 command_proc: long; 

0634 2 

0635 2 local 

0636 2 status: long 

0637 2 command complete: byte, 

0638 2 char: byte, 

0639 2 in quotes: byte, i: long; 
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INPUT INPUT = Analyze and Act on Input 16-Sep-1984 0 19:30 
v04-000 PHNSCMD_PARSE = Parse a Command 14-Sep-1984 12:53: 
; 319 0640 ! The following is the parsing table used to analyze a command and 
: 320 64) ! determine which command routine to call. ; 
; $3 bee ! The TRANSCRIBE command has been more or less temporarily removed. 
; e Bete Sinit_state(command_state,command_key); 
; 5 P 0646 $state (, 
; pee P 0647 § (tpa$_blank) 
; 327 P 0648 (tpa$_lambda 
; 328 0649 2 : 
; 329 0650 2 
: 339 P 0651 § $state (, : 
; 1 P bees (tpa$_eos,tpa$_exit), 
s Boe P 06535 2 (ctrl-w noargs), 
; 333 P 0654 2 (‘ANSQER", noargs, ,phn$answer_cmd, 
; 334 P 0655 2 ("DIAL' args, .phn$dial_cmd, 
s Soe P 0656 2 (*DIRECTORY', args,,phn$directory_cmd, 
; 336 P 0657 2 ("EXIT', noargs,,phn$exit_cmd, 
: 337 P 0658 2 ("FACSIMILE', args,,phn$facsimile_cmd, 
: 338 P 0659 2 ("HANGUP', noargs, ,phn$hangup_cmd, 
: 339 P 0450 2 ("HELP', args, ,phn$help_cmd, 
; 340 P 0661 2 ("HOLD', noargs,,phn$hold_cmd, 
; 341 P 0662 2 (*MAIL* args,,phn$mail_cmd, 
>; 342 P 0663 2 (* PHONE | args,,phn$dial_cmd, 
:; 343 P 0664 2 ("REJECT args,,phn$reject_cmd, 
> 344 P 0665 2! ("TRANSCRIBE', args, phn$transcribe_cmd, 
> 345 P 0666 2 ("UNHOLD', noargs,,phn$unhold_cmd, 
: 346 P 0667 2 (tpa$_lambda, args,,phn$dial_cmd, 
: 347 0668 2 ); 
; 348 0669 2 
; «349 P 0670 2 $state (noargs, 
; 350 P 0671 2 (tpa$_blank) 
s Bet P 0672 2 (tpa$_lambda 
3 ioe 0673 2 H 
;. wee P 0674 2 $state (, ; 
; 334 P 0675 2 (tpa$_eos,tpa$_exit) 
3 392 0676 2 : 
3 306 0677 2 
3 Sor 0678 2 $state (args, : 
3 Soe P 0679 2 (tpa$_blank,tpa$_exit), 
; 359 P 0680 2 (tpa$_ lambda, tpa$_exit) 
; 360 0681 2 H 
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| INPUT INPUT = Analyze and Act on Input 18-Sep-1984 0 19:39 VAX=11 Bliss-32 V4.0-742 Page 13 L) 
v04-000 PHNSCMD_PARSE = Parse a Command 14-Sep-1984 12:55: DISKSVMSMASTER: CPHONE.SRCJINPUT.B32;1 (9) VC 
: ° bobs ! We begin by displaying the command fragment on the screen. : 
; rf: Bese phn$show_text(0,text_dsc); : 
: 366 0686 : We look at each character that has been passed to us. Note that a : 
; dl 0687 ! similar analysis has to be done in PHNS$SHOW_TEXT. There are the . 
; 368 0688 ! following cases: : 
; 369 0689 : normal Add character to command. ; : 
: 370 0690 : return End of the command. Parse & execute it. : 
; ofl 0691 : delete Delete last character in command. ; 
3 37¢ 934 : CTRL/U Flush entire command and start over. ; 
; 374 0694 : command_complete = false; : 
. Bre 0695 while dec (text_dscLlenJ) geq 0 do ( ; 
3; 62f6 0696 3 : 
s off 0697 ; char = ch$rchar_a(text_dscCptr]); ; 
; 378 0698 : 
; 379 0699 ; selectoneu .char of set : 
; 380 0700 (%x'20' to %x'7e' : 
> 381 0701 3 %x'80" to Xx'ff'd: ; ; 
; 382 0702 4 (command_bufC.buf_iJ =_.char; : 
; 383 0703 3 buf_i = minu(.buf_i+1,79);); ; 
> 384 0704 3 : 
; 385 0705 3 Cret): command_complete = true; ‘ 
; 386 0706 3 ‘ : 
; Ser 0707 3 Cdelete): buf_i = max(.buf_i-1, 0); : 
; 388 0708 3 i : 
; 389 0709 3 Cctrl_ul: buf_i = 0; : 
: 390 0710 3 tes; ; 
; 2 0711 3 ; 
; ove 0712 2); : 
; 2ee 0713 2 : 
> 394 0714 2! If we have a complete command now, we can parse it. All we are interested : 
; 395 0715 2! in here is the command verb; all arguments will be passed on to the : 
; 396 0716 2 ! command processing routine. ; 
3s er 0717 2 : 
; 398 0718 2 if not .command_complete then F 
; 0719 2 return; : 
; 400 0720 2 ‘ : 
; 401 0721 2 ! We need to uppercase the command for comparison purposes. However, any : 
: 402 0722 2 ! quoted strings should be left alone. 3 
: 403 0723 2 ‘ 
3; 404 0724 in_quotes = false; ; : 
; 405 0725 incr i from 0 to .buf_i-1 do ( : 
: 406 0726 f not .in quotes and ; é 
: 407 0727 3 -command_bufl.i] gegu ‘a’ and .command_bufl.iJ beau *z' then : 
; 408 0728 3 ; command_bufC.iJ = .command_bufl.iJ and %b°11011111'; 3 
: 409 0729 3 in quotes = .in_quotes xor (.command_bufl.iJ eqlu ‘'''); 3 
: 410 0730 § ); : 
; 411 0731 ; : 
: 412 Oras tparse_block epest ser tnecnt = .buf_i; : 
3: 413 073 tparse_block(tpa$l_stringptr] = command_buf; 3 
7 414 0734 command_proc = 0; ; 
; 212 O82 3 status = Lib$tparse(tparse_block,command_state,command_key); : 
3; 417 0737 ! If we didn't get a syntax error, we can call the command procedure, passing : 
: 418 0738 2! it a descriptor of the command arguments (which it can clobber). 3 
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00000 
52 45 57 53 4E 41 00000 


FF 00006 
00007 


4C 41 49 44 00007 


FF 00008 
0000C 


59 52 4F 54 43 45 52 49 44 0000C 


FF 00015 
00016 


54 49 58 45 00016 


FF QOO1A 
0001B 


45 4C 49 4D 49 53 43 41 46 0001B 


FF 00024 
00025 


50 55 47 4E 41 48 00025 


FF 0002B 
0002C 


50 4C 45 48 0002C 


FF 00030 
00031 


-PSECT 
; TPASKEYSTO 


U.9: P 
; TPASKEYST 
0.11: seth 


-BY 
; TPASKEYSTO 


; TRASKEYSTO 


LK 
; TPASKEYST 
0.33: .ASCII 


; TPASKEYSTO 


; TPASKEYSTO 


_LIBSKEY1$,NOWRT, 


0 
\ 
0 
\ 
0 
\ 
0 
\ 
0 
\ 
0 
\ 


0 
\ 


then 
(.cOmmand_proc) itperee., block(tpa$l_stringcnt)); 


UT - At fy ze and Act on Input 16 
SCMD _P ARSE - Parse a Command 14 
9 
0 -Status solu Lib$S_syntaxerr then 
1 phn$inform(phin$_badcmd) 
¢ else ( 
Gpeck (.status); 
: command Proc neqa 0 
g 
4 ' ALL done. Clear out command Line on screen and reset our buffer. 
9 p ie ea text(O,describe(%char(ctrl_u))); 
¢ § return; 
4 1 end; 


oe 
DIAL\ 

1 

pines renrs 
EXIT\ 

1 
‘aaiaeatateas 
ane" 


HELP\ 


VAX-11 Bliss-32 V4.0-742 Pag 
DISKSVMSMASTER: CPHONE.SRCJINPUT.B32;1 


SHR, 


PIC,1 


“~ 


if 2 
INPUT INPUT = paast7e and Act on Input 6-$ sept 1384 0: 10: 30 VAX-11 Bliss-32 V4.0-742 Page 


a 
v04-000 EANSCMD PARSE = Parse a Command -Sep-1 DISKSVMSMASTER: CPHONE.SRCJINPUT.B32;1 . { 
U.59: -BLKB 0 
44 4C 4F 48 00031 ; TPASKEYST 
0.61:  .ASCII \HOLD\ : 
FF 00035 . ~) : 
00036 ; TPASKEYSTO 
U.66: . 0 
4C 49 41 4D 00036 ; TPASKEYST 
U.68: ASCII \MAIL\ : 
FF QO03A * -] : 
00038 Ns rahe by 0 
45 4E 4F 48 50 0003B ;TPASKEYST 
U.75: eASCII \PHONE\ : 
FF 0004 ‘ -1 : 
00041 eer 0 
54 43 45 4A 45 52 00041 ; TPASKEYST 
U.82: eASCII \REJECT\ : 
FF 00047 1 : 
00048 ; TPASKEYSTO 


U.87: -BLKB 0 
44 4C 4F 48 GE 55 00048 ; TPASKEYST 


U.89: eASCII \UNHOLD\ § 

FF QO04E -BYTE -1 : 
FF QOOO4F  TPASKEYF ILL 

U.98: -—BYTE 1 : 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 COMMAND_ a 


0 
01F2 00000 ; TPASTYPE 
U.2: WOR 498 : 
O5F6 00002 ; TPASTYPE 
U.3: «WORD 1526 : 
11F7 00004 ; TPASTYPE 
U.4: 4 4599 : 
FFFF 00006 ; TPASTARGET 
U.5: WORD -1 3 
1017 00008 ; TPASTYPE 
U. 6: WORD 4119 : 
0000* OO00A ; TPASTARGET 
U.8: «WORD <<U.7-U.8>-2> 3 
7100 OOO0OC ; TPASTYPE 
U.12: eWORD 28928 3 
00000000* OOO0OE ; TPASADDR 
U.13: .LONG <<COMMAND_PROC-U.13>-4> F 
00000000G 00012 ; TPASMASK 
U.14: -ADDRESS PHNSANSWER_CMD - 
0000* 00016 ;TPASTA 
U.15: eWORD <<U.7-U.15>-2> : 
7101 00018 ; TPASTY 
U.19: eWORD 28929 3 
00000000* OOO1A ; TPASAD 
U.20: _.LONG <<COMMAND_PROC-U.20>-4> : 
00000000G OOO1E ; TPASMAS 
U.21: -ADDRESS PHNSDIAL_CMD 3 
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0000+ 
7102 
00000000* 
000000006 
0000* 
7103 
00000000* 
000000006 
0000* 
7104 
00000000* 
000000006 
0000+ 
7105 
00000000* 
000000006 
0000+ 
7106 
00000000* 
000000006 
0000+ 
7107 
00C¢20000* 
000000006 
0000* 
7108 
00000000* 
000000006 
0000+ 
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00022 ; TPASTARGET 

U.23: ‘ <<U.22°U.23>-2> 
00024 ; TPASTYPE 

U.2?7: . 28930 
00026 ; TPASADDR 

U.28: ~ LONG <<COMMAND _PROC-U.28>=-4> 
0002A ; TPASMASK 

U. 29: -ADDRESS PHNSDIRECTORY_CMD 
Q002E ; TPASTARGET 

U.30: «WORD <<U.22-U.30>-2> 
00030 ; TPASTYP 

U.34: WORD 28931 
00032 ; TPASADDR 

U.35: ~ LONG <<COMMAND _PROC-U.35>=-4> 
00036 ; TPASMASK 

U.36: -ADDRESS PHNSEXIT_CMD 
QOO3A ; TPASTARGET 

U.37: eWORD <<U.7-U.37>-2> 
0003C ; TPASTYP 

U.41: -WORD 28932 
OO03E ; TPASADDR 

U.42: -LONG <<COMMAND_PROC-U.42>-4> 
00042 ; TPASMASK 

U.43: -ADDRESS PHNSFACSIMILE_CMD 
00046 ; TPASTARGE 

U.44: eWORD <<U.22-U.44>-2> 
00048 ; TPASTYPE 

U.48: -WORD 28933 
Q004A ; TPASAD 

U.49: ~ LONG <<COMMAND _PROC-U.49>-4> 
OOO4E ; TPASMASK 

U.50: -ADDRESS PHNSHANGUP_CMD 
00052 ; TPASTARG 

U.51: eWORD <<U.7-U.51>-2> 
00054 ; TPASTYP 

U.55: -WORD 28934 
00056 ; TPASAD 

U.56: .-LONG <<COMMAND_PROC-U.56>-4> 
O0O05A ; TPASMASK 

U.57: ADDRESS PHNSHELP_CMD 
QOOSE ; TPASTARGET 

U.58: eWORD <<U.22-U.58>-2> 
00060 ; TPASTYPE 

U.62: -WORD 28935 
00062 ; TPASADDR 

U.63: ~ LONG <<COMMAND _PROC-U.63>-4> 
00066 ; TPASMASK 

U.64: ADDRESS PHNSHOLD_CMD 
0006A ; TPASTARGET 

0.65: eWORD <<U.7-U.65>-2> 
0006C ; TPASTYPE 

U.69: eWORD 28936 
Q006E ; TPASADDR 

.70: ~LONG <<COMMAND_PROC-U.70>-4> 

00072 ; TPASMASK 

b. ADDRESS PHNSMAIL_CMD 
00076 : TPASTARGET 


.PSECT _LIBSKEYO$,NOWRT, SHR, PIC,1 | 
00000 COMMAND_KEY:: 


M 2 
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v04-000 PHNSCMD _PARSE - Parse a Command 14- ge) 7 95: 49: 38 DISKSVMSMASTER: [PHONE . SRCJINPUT.B32;1 . (9). v0 

U.72:  ,WORD <<U.22-U.72>-2> : ls 
7109 00078 ; TPASTYP $ 
U.76:  .WORD 28937 : 3 
00000000* O007A ;TPASAD r 
000000006 OO07E ;TPASMA 3 
U.78: ADDRESS PHNSDIAL_CMD : P 
0000* 00082 ; TPASTA 3 
U.79:  .WORD <<U.22-U.79>-2> $ ‘ 
710A 00084 ;TPASTY 3 
U.83: .WORD 28938 : 3 
093:90000* 00086 ; TPASAD 3 
§.84: .LONG <<COMMAND_PROC-U.84>-4> : ; 
000000006 O008A ; TPASMASK ; 
U.85: «ADDRESS PHNSREJECT_CMD : 3 
0000* OO08E ; TPASTAR 3 
U.86:  .WORD <<U.22-U.86>-2> : : 
710B 00090 ;TPASTY $ 
U.90:  .WORD 28939 : 3 
00000000* 00092 ; TPASADDR 3 
U.91: _.LONG <<COMMAND_PROC-U.91>-4> : F 
000000006 00096 ;TPASMA | 3 
U.92: ADDRESS PHNSUNHOLD_CMD ; | ; 
0000* 0G09A ;TPASTA 3 
U.93: eWORD <<U.7-U.93>-2> : 3 
75F6 OO09C ;TRASTY 3 
U.94:  .WORD 30198 : 3 
00000000* OO009E ; TPASAD : 
U.95: .LONG <<COMMAND_PROC-U.95>-4> : ; 
00000000G O00A2 ; TPASMA 3 
U.96: «ADDRESS PHNSDIAL_CMD $ é 
0000* OO0A6 ; TPASTARGET | ; 
U.97: eWORD <<U.22-U.97>-2> : 3 
OOOA8 ;NOARGS : 
U.7: ~BLKB 0 } e 
O1F2 OOOA8 ; TPASTYPE 3 
U.99: .WORD 498 : : 
O5F6 OOOAA ; TPASTYPE 3 
U.100: .WORD 1526 : 3 
15F7 OOOAC ; TPASTYPE ; 
U.101: .WORD 5623 3 | 3 
FFFF QOOAE ; TPASTARGET 3 
U.102: .WORD -1 5 : 
00080 sAngs F 
U.22: -BLKB 0 é 
11F2 OO0BO ; TPASTYPE $ 
U.103: .WORD 4594 : $ 
FFFF OOO0B2 ; TPASTARGET : 
U.104: .W -1 3 3 
15F6 O00B4 ; TPASTYPE ; 
U.105: WORD 5622 3 é 
FFFF QOOB6 ; TPASTARGET ; 
U.106: .WORD -1 : 3 
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52 04 Ac 00 

$e DD 

E 04 

0000G CF 0¢ FB 
53 94 


2 


1860-1986 4 


00000 ; TPASKEYO 


BLKB 


19: - VAX=11 Bliss=32 V4.0=742 
TER: CPHONE. SRCJINPUT .B32; 


DIS SKSVMSN 


0.1: .BLKB 0 
00000 ; TPASKEY 
U.10:  .WORD <U.9-U.1> 
00002 ; TPASKEY 
0.17: .WORD <U.16-U.1> 
00004 ; TPASKEY 
0.25:  .WORD <U.24-U.1> 
00006 ; TPASKEY 
0.32: .WORD <U.31-U.1> 
00008 ; TPASKEY 
0.39:  .WORD <U.38-U.1> 
QOO0A ; TPASKEY 
0.46:  .WORD <U.45-U.1> 
0000C ; TPASKEY 
0.53: | .WORD <U.52-U.1> 
OOO0E ; TPASKEY 
0.60:  .WORD <U.59-U.1> 
00010 ; TPASKEY 
U.67:  .WORD <U.66-U.1> 
00012 ; TPASKEY 
U.74: | .WORD <U.73-U.1> 
00014 ; TPASKEY 
U.81: -WORD <U.80-U.1> 
00016 ; TPASKEY 
U.88:  .WORD <U.87-U.1> 
.PSECT $PLIT$,NOWRT,NOEXE,2 
0002C P.AAH: .ASCII <21> 
0002D .BLKB 3 
00030 P.AAG: .LONG 1 
00034 “ADDRESS P.AAH 
.PSECT $OWNS,NOEXE,2 
00058 COMMAND_BUF : 
.BLKB 80 
QO00A8 BUF LONG 0 
OOOAC SPARSE BLOCK: 
LONG 8, 3 
000B4 "BLK B 28 
000D0 COMMAND_PROC: 
-BLKB 4 
.PSECT $CODE$,NOWRT,2 
00000 .ENTRY PHNSCMD_PARSE, Save R2,R3,R4 
00002 MOVAB BUF _I 
00007 OVL CHD TEXT, R2 
60008 PUSHL 
000D LRL Re SP) 
0000F CALLS #2. PHNSSHOW. TEXT 
00014 CLRB COMMAND_COMPCETE 


B 3 
| INPUT NPUT = Analyze and Act on Input 16-Sep-1984 02:10:3 VAX=11 Bliss=-32 V4.0-742 19 
v04-000 PHNSCMD PARS ie Parse a Command 14-Sep-1984 93:59:39 DISKSVMSMASTER: CPHONE. SRCJINPUT.B32; f29 * (9) 
50 62 3C 00016 1$: MOVZ2WL (R2), RO : 0695 
4 07 38019 DECL RO : 
62 50 BO 0001B MOVW RO, (R2) : 
50 05 OOO1E TSTL RO ; 
5A 19 00020 BLSS  8$ : 
51 04 B62 90 00022 MOVB @4(R2), CHAR + 0697 
04 A2 D6 00026 INCL  4(R2) : 
20 51 91 00029 CMPB = CHAR, -#32 : 0700 
06 iF 00 C BLSSU _2$ : 
7E oSF 51 91 O0¢E MPB CHAR, #126 : 
06 1B 000 BLEQU 3$ : 
80 BF 51 91 00034 2$: CMPB = CHAR, «#128 : 
1c iF 00038 BLSSU 4$ : 
V ND_BU R ; 
| 50 BO A4 YE 0003A 38 MOVAB COMMAND _BUF, RO 0702 
00 B440 51 90 0003E MOVB. CHAR, aBUF_ICROJ : | 
0 64 01 ¢1 00042 ADDL3 #1, BUF_I,~RO + 0703. 
QOO0004F BF 56 D1 00047 CMPL RO, #79 : | 
iE 1B 0004E BLEQU ; | 
50 4F 8F 9A 00050 MOVZBL #79, RO : | 
18 11 00054 BRB ; 
0D 51 91 00056 4$: CMPB = CHAR,,- #13 + 0705 
05 12 00059 BNEQ ; 
53 01 90 00058 MOVB #1, COMMAND_COMPLETE : 
B6 11 0005E BRB ; 
7F OS 51 91 00060 5$: CMPB —s CHAR, :-#127 + 0707 
OD 12 00064 BNEQ 7 : 
50 64 01 ¢3 00066 SUBL3 #1, BUF_I, RO ; 
02 18 OO06A BGEG 6$ ; 
50 D4 0006C CLRL _—RO ; 
64 50 DO O006E 6S: MOVL RO, BUF_I ; | 
A311 00071 BRB ; 
15 51 91 00073 7$: CMPB —s- CHAR, - #21 : 0709 | 
9—E 12 00076 BNEQ «1 : 
64 D4 00078 CLRL —- BUF_I ; 
9A 11 OOO7A BRB : 069 
01 53 €8 OOO07C 8S: BLBS | COMMAND_COMPLETE, 9$ : 071 
04 0007F RET ; 
52 94 00080 9$: CLRB —«IN_QUOTES : 072 
50 01 CE 00082 MNEGL #17 I : 072 
27 11 00085 BRB 13 : 
16 52 €8 00087 10$: BLBS IN QUOTES, : 072 
61 BF BO A440 91 O008A CMPB —s- COMMAND RUFLLD. #97 : 072 
OE 1F 00090 BLSSU-'11$ : 
7A BF BO A440 91 00092 CMPB COMMAND_BUFCIJ, #122 ; 
06 1A 00098 BGTRU 1 : 
BO A440 20 §8F 8A OOO9A BICB2 #-224, COMMAND_BUFCIJ > 072 
51 04 OOOAO 11$:  CLRL RI : 072 
22 BO A440 91 000A2 CMPB © COMMAND_BUFLI], #34 
| 02 12 000A7 BNEQ 12$ ; 
51 D6 BO0A9 INCL RY ; 
52 51 8° OOOAB 128: XORB2.-R1, ‘IN_QUOTES : | 
| ) 50 64 Fz QOOAE 138:  AOBLSS BUF_I,~I i 0725 
oc AG 64 D0 000B2 MOVL  BUF-I, TPARSE BLOCK+8 : 0738 
10 AG BO AG 9E 00086 MOVAB COM MAND _BUF TPARSE _BLOCK+12 : 07 
28 «AG D4 O00BB CLRL COMM AND P PRo¢ > 0734 
0000" CF 9F OOOBE PUSHAB COMMAND KEY : 0735. 
| 0000' CF 9F 000C2 PUSHAB COMMAND "STATE ; | 
| 


3 
| INPUT NPUT = Analyze and Act on Input 1s Sep-1984 VAX=11 Bliss-32 V4.0-742 0 
| V04-000 PHNSCMD _PARSE - Parse a fonnend 14-Sep-1984 93: 43; 33 DISKSVMSMASTER: CPHONE. SRCJINPUT.B32; ie oe 8 
04 A& YF Q00C PUSHAB TPARSE_BLOCK : 
| 000000006 00 3 FB tate CALLS #3, LIBSTPARSE $ 
52 0 D0 00000 MOVL RO, STATUS F 
00000000G_ 8F 52 D1 000035 CMPL STATUS, #LIBS_SYNTAXERR : 0740 
0D 12 QOODA BNEQ 14$ : 
00000000G 8F DD 000D PUSHL age BADCMD 3 0741 
0000G CF 01 FB OOOE CALLS PANSINF ORM : 
18 11 QOOE BRB 1 3 
09 52 E8 OOOED 14$: BLBS STATUS, 15$ : 0743 
52 DD OOOEC PUSHL STAT 3 
00000000G 00 01 FB QOOEE CALLS #1, LIBSSIGNAL 3 
59 28 AS 00 QOOFS 15$: MOVL COMMAND _ PROC, RO 3 0744 
06 13 QOOF9 BEQL 3 
0c AS 9F OOOFB PUSHAB TPARSE_BLOCK+8 ; 0745 
60 01 FB QOOFE CALL #1, (RO) 3 
0000' CF 9F 00101 16$ PUSHAB ; 0750 
7E D4 00105 CLRL -(SP) : 
0000G CF 02 FB 00107 CALLS #2, PHNS$SSHOW_TEXT : 
64 04 0010C CLRL BUF _I ; 075 
04 0010E : 075 
; Routine Size: 271 bytes, Routine Base: S$CODE$ + 013F 
> 435 0755 1 
; 436 0756 0 end eludom 
-EXTRN LIBSSIGNAL 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS 212 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 56 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$CODES 590 NOVEC,NOWRT, RD, XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; LIBSKEYO$S 24 NOVEC,NOWRT, RD, EXE, SHR, LCL, EL, CON, PIC,ALIGN(1) 
; “LIBSSTATES 184 NOVEC,NOWRT, RD, EXE, SHR, LCL, EL, CON, PIC,ALIGN(1) 
F “LIBSKEY1$ 80 NOVEC,NOWRT, RD, EXE, SHR, LCL, EL, CON, PIC,ALIGN‘1) 
: Library Statistics 
: eee eee ee. ae Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBJSTARLET.L32;1 9776 0 581 00:00.7 
> 7$255$DUA28:(SYSLIBJTPAMAC.L 32; 1 42 2e 57 14 00:00.1 
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dD 3 
INPUT = Analyze and Act on Input 16-Se 
PHNSCMD_PARS 14-Se 


- Parse a Command 


COMMAND QUALIFIERS 


VAX-11 Bliss-32 V4.0-742 Pa 
DISKSVMSMASTER: CPHONE.SRCJINPUT.B32;1 


BLIiSS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:INPUT/OBJ=OBJ$: INPUT MSRC$: INPUT/UPDATE=(ENH$: INPUT) 
Size: 590 code + 556 data bytes 
00:16.8 


Run Time: 


Elapsed Time: 01:03.8 


Lines/CPU Min: 2703 
Lexemes/CPU-Min: 87343 
200 pages 
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